inherited dtmda_Supply: Tdtmda_Supply
  OldCreateOrder = True
  Left = 836
  Top = 366
  Height = 371
  Width = 713
  inherited adsMaster: TADODataSet
    CursorType = ctStatic
    CommandText = 'select * from V_da_Supply where 0=1'
    Top = 48
    object adsMasterSupplyID: TStringField
      DisplayLabel = #20379#24212#21830'ID'
      FieldName = 'SupplyID'
    end
    object adsMasterSupplyCode: TStringField
      DisplayLabel = #20379#24212#21830#32534#30721
      FieldName = 'SupplyCode'
    end
    object adsMasterSupplyShortName: TStringField
      DisplayLabel = #20379#24212#21830#31616#31216
      FieldName = 'SupplyShortName'
      Size = 50
    end
    object adsMasterSupplyFullName: TStringField
      DisplayLabel = #20379#24212#21830#20840#31216
      FieldName = 'SupplyFullName'
      Size = 100
    end
    object adsMasterHelperCode: TStringField
      DisplayLabel = #21161#35760#30721
      FieldName = 'HelperCode'
      Size = 10
    end
    object adsMasterDeptID: TStringField
      DisplayLabel = #20844#21496'ID'
      FieldName = 'DeptID'
    end
    object adsMasterCountry: TStringField
      DisplayLabel = #22269#23478
      DisplayWidth = 16
      FieldName = 'Country'
    end
    object adsMasterLinkMan: TStringField
      DisplayLabel = #32852#31995#20154
      DisplayWidth = 20
      FieldName = 'LinkMan'
    end
    object adsMasterAddress: TStringField
      DisplayLabel = #22320#22336
      DisplayWidth = 50
      FieldName = 'Address'
      Size = 80
    end
    object adsMasterPhoneNo: TStringField
      DisplayLabel = #30005#35805
      DisplayWidth = 50
      FieldName = 'PhoneNo'
      Size = 50
    end
    object adsMasterTel: TStringField
      DisplayLabel = #25163#26426
      DisplayWidth = 50
      FieldName = 'Tel'
      Size = 50
    end
    object adsMasterFax: TStringField
      DisplayLabel = #20256#30495
      DisplayWidth = 50
      FieldName = 'Fax'
      Size = 50
    end
    object adsMasterPostCode: TStringField
      DisplayLabel = #37038#32534
      FieldName = 'PostCode'
    end
    object adsMasterEmail: TStringField
      DisplayLabel = #30005#23376#37038#31665
      DisplayWidth = 18
      FieldName = 'Email'
    end
    object adsMasterHomePage: TStringField
      DisplayLabel = #20027#39029
      DisplayWidth = 21
      FieldName = 'HomePage'
      Size = 50
    end
    object adsMasterTaxNo: TStringField
      DisplayLabel = #31246#21495
      DisplayWidth = 18
      FieldName = 'TaxNo'
      Size = 30
    end
    object adsMasterAccounts: TStringField
      DisplayLabel = #38134#34892#24080#21495
      DisplayWidth = 20
      FieldName = 'Accounts'
      Size = 30
    end
    object adsMasterKindID: TStringField
      DisplayLabel = #20379#24212#21830#20998#31867'ID'
      DisplayWidth = 10
      FieldName = 'KindID'
    end
    object adsMasterKindNo: TStringField
      DisplayLabel = #20379#24212#21830#20998#31867'NO'
      FieldName = 'KindNo'
      Size = 40
    end
    object adsMasterKindIDName: TStringField
      DisplayLabel = #20379#24212#21830#20998#31867
      FieldName = 'KindName'
      Size = 50
    end
    object adsMasterCorporator: TStringField
      DisplayLabel = #27861#20154#20195#34920
      FieldName = 'Corporator'
    end
    object adsMasterSettleID: TStringField
      DisplayLabel = #32467#31639#26041#24335'ID'
      DisplayWidth = 11
      FieldName = 'SettleID'
      Visible = False
    end
    object adsMasterSettleName: TStringField
      DisplayLabel = #32467#31639#26041#24335
      FieldName = 'SettleName'
    end
    object adsMasterCurrencyID: TStringField
      DisplayLabel = #32467#31639#24065#31181'ID'
      FieldName = 'CurrencyID'
    end
    object adsMasterCurrencyName: TStringField
      DisplayLabel = #32467#31639#24065#31181
      FieldName = 'CurrencyName'
    end
    object adsMasterBankName: TStringField
      DisplayLabel = #24320#25143#38134#34892
      FieldName = 'BankName'
    end
    object adsMasterBankDoor: TStringField
      DisplayLabel = #24320#25143#21517
      FieldName = 'BankDoor'
    end
    object adsMasterHasStop: TBooleanField
      DisplayLabel = #31105#29992#21542
      FieldName = 'HasStop'
    end
    object adsMasterHasUse: TBooleanField
      DisplayLabel = #20351#29992#21542
      FieldName = 'HasUse'
    end
    object adsMasterHasSysDefine: TBooleanField
      DisplayLabel = #31995#32479#23450#20041#21542
      FieldName = 'HasSysDefine'
    end
    object adsMasterHasDefault: TBooleanField
      DisplayLabel = #40664#35748#21542
      FieldName = 'HasDefault'
    end
    object adsMasterStoper: TStringField
      DisplayLabel = #31105#29992#20154
      FieldName = 'Stoper'
    end
    object adsMasterStopDate: TDateTimeField
      DisplayLabel = #31105#29992#26085#26399
      FieldName = 'StopDate'
    end
    object adsMasterStopMemo: TStringField
      DisplayLabel = #31105#29992#35828#26126
      FieldName = 'StopMemo'
    end
    object adsMasterHasCheck: TBooleanField
      DisplayLabel = #23457#26680#21542
      FieldName = 'HasCheck'
    end
    object adsMasterChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsMasterWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
  end
  inherited adsMasterEdit: TADODataSet
    CursorType = ctStatic
    CommandText = 'select * from da_Supply'
    object adsMasterEditSupplyID: TStringField
      DisplayLabel = #20379#24212#21830'ID'
      FieldName = 'SupplyID'
    end
    object adsMasterEditSupplyCode: TStringField
      DisplayLabel = #20379#24212#21830#32534#30721
      FieldName = 'SupplyCode'
    end
    object adsMasterEditSupplyShortName: TStringField
      DisplayLabel = #20379#24212#21830#31616#31216
      FieldName = 'SupplyShortName'
      OnChange = adsMasterEditSupplyShortNameChange
      Size = 50
    end
    object adsMasterEditSupplyFullName: TStringField
      DisplayLabel = #20379#24212#21830#20840#31216
      FieldName = 'SupplyFullName'
      Size = 100
    end
    object adsMasterEditHelperCode: TStringField
      DisplayLabel = #21161#35760#30721
      FieldName = 'HelperCode'
      Size = 50
    end
    object adsMasterEditCountry: TStringField
      DisplayLabel = #22269#23478
      FieldName = 'Country'
    end
    object adsMasterEditLinkMan: TStringField
      DisplayLabel = #32852#31995#20154
      FieldName = 'LinkMan'
    end
    object adsMasterEditAddress: TStringField
      DisplayLabel = #22320#22336
      FieldName = 'Address'
      Size = 80
    end
    object adsMasterEditTel: TStringField
      DisplayLabel = #25163#26426
      FieldName = 'Tel'
      Size = 50
    end
    object adsMasterEditFax: TStringField
      DisplayLabel = #20256#30495
      FieldName = 'Fax'
      Size = 50
    end
    object adsMasterEditPostCode: TStringField
      DisplayLabel = #37038#32534
      FieldName = 'PostCode'
    end
    object adsMasterEditEmail: TStringField
      DisplayLabel = #30005#23376#37038#31665
      FieldName = 'Email'
    end
    object adsMasterEditHomePage: TStringField
      DisplayLabel = #20027#39029
      FieldName = 'HomePage'
      Size = 50
    end
    object adsMasterEditTaxNo: TStringField
      DisplayLabel = #31246#21495
      FieldName = 'TaxNo'
      Size = 30
    end
    object adsMasterEditAccounts: TStringField
      DisplayLabel = #38134#34892#24080#21495
      FieldName = 'Accounts'
      Size = 30
    end
    object adsMasterEditCorporator: TStringField
      DisplayLabel = #27861#20154#20195#34920
      FieldName = 'Corporator'
    end
    object adsMasterEditDeptID: TStringField
      DisplayLabel = #20844#21496'ID'
      FieldName = 'DeptID'
    end
    object adsMasterEditKindID: TStringField
      DisplayLabel = #20379#24212#21830#20998#31867'ID'
      FieldName = 'KindID'
    end
    object adsMasterEditPhoneNo: TStringField
      DisplayLabel = #30005#35805
      FieldName = 'PhoneNo'
      Size = 50
    end
    object adsMasterEditSettleID: TStringField
      DisplayLabel = #32467#31639#26041#24335'ID'
      FieldName = 'SettleID'
    end
    object adsMasterEditCurrencyID: TStringField
      DisplayLabel = #32467#31639#24065#31181'ID'
      FieldName = 'CurrencyID'
    end
    object adsMasterEditBankName: TStringField
      DisplayLabel = #24320#25143#38134#34892
      FieldName = 'BankName'
    end
    object adsMasterEditBankDoor: TStringField
      DisplayLabel = #24320#25143#21517
      FieldName = 'BankDoor'
    end
    object adsMasterEditHasStop2: TBooleanField
      DisplayLabel = #31105#29992#21542
      FieldName = 'HasStop'
    end
    object adsMasterEditHasUse2: TBooleanField
      DisplayLabel = #20351#29992#21542
      FieldName = 'HasUse'
    end
    object adsMasterEditHasSysDefine: TBooleanField
      DisplayLabel = #31995#32479#23450#20041#21542
      FieldName = 'HasSysDefine'
    end
    object adsMasterEditHasDefault: TBooleanField
      DisplayLabel = #40664#35748#21542
      FieldName = 'HasDefault'
    end
    object adsMasterEditStoper2: TStringField
      DisplayLabel = #31105#29992#20154
      FieldName = 'Stoper'
    end
    object adsMasterEditStopDate: TDateTimeField
      DisplayLabel = #31105#29992#26085#26399
      FieldName = 'StopDate'
    end
    object adsMasterEditStopMemo2: TStringField
      DisplayLabel = #31105#29992#35828#26126
      FieldName = 'StopMemo'
    end
    object adsMasterEditHasCheck2: TBooleanField
      DisplayLabel = #23457#26680#21542
      FieldName = 'HasCheck'
    end
    object adsMasterEditChecker2: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterEditCheckTime2: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterEditWriter2: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsMasterEditWriteTime2: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterEditModifier2: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterEditModifyTime2: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterEditRemark2: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
    object adsMasterEditres_CurrencyName: TStringField
      DisplayLabel = #32467#31639#24065#31181
      FieldKind = fkLookup
      FieldName = 'res_CurrencyName'
      LookupDataSet = res_Currency
      LookupKeyFields = 'Code'
      LookupResultField = 'Name'
      KeyFields = 'CurrencyID'
      Lookup = True
    end
    object adsMasterEditres_SettleName: TStringField
      DisplayLabel = #32467#31639#26041#24335
      FieldKind = fkLookup
      FieldName = 'res_SettleName'
      LookupDataSet = res_BaseInfo
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'SettleID'
      Lookup = True
    end
    object adsMasterEditres_KindName: TStringField
      DisplayLabel = #20379#24212#21830#20998#31867
      FieldKind = fkLookup
      FieldName = 'res_KindName'
      LookupDataSet = res_item
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'KindID'
      Size = 50
      Lookup = True
    end
    object adsMasterEditItemContent: TStringField
      FieldName = 'ItemContent'
      Size = 8000
    end
  end
  object res_Currency: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select Code,Name from da_Currency'
    Parameters = <>
    Left = 288
    Top = 168
  end
  object adsSupplyType: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'select ID, RuleChildID, Code, Name, FullName from V_da_SupplyTyp' +
      'e'#13#10'order by RuleChildID'
    Parameters = <>
    Left = 176
    Top = 168
    object adsSupplyTypeID: TStringField
      FieldName = 'ID'
    end
    object adsSupplyTypeRuleChildID: TStringField
      FieldName = 'RuleChildID'
      Size = 50
    end
    object adsSupplyTypeCode: TStringField
      FieldName = 'Code'
    end
    object adsSupplyTypeName: TStringField
      FieldName = 'Name'
      Size = 50
    end
    object adsSupplyTypeFullName: TStringField
      FieldName = 'FullName'
      Size = 80
    end
  end
  object res_BaseInfo: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select ID,Code,Name from da_BaseInfo'
    Parameters = <>
    Left = 57
    Top = 166
  end
  object res_item: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select ID, Code, Name, FullName from V_da_item'
    Parameters = <>
    Left = 176
    Top = 96
  end
  object adsUserCompany: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 
      'select b.DeptID, b.DeptCode, b.DeptName from xt_CompanySet a '#13#10'j' +
      'oin da_Department b on a.CompanyID=b.DeptID'#13#10'where a.UserID=(sel' +
      'ect UserID from xt_Users where UserCode=:UserCode)'
    Parameters = <
      item
        Name = 'UserCode'
        Size = -1
        Value = Null
      end>
    Left = 288
    Top = 48
  end
end
